6505 :RETURN ;CLEAR 
6510 CX=-60;CY=0
6520 PRINT "DIFFICULTY LEVEL 1-4"
6530 IF &(23)=8C=100;GOTO 8000
6540 IF &(22)=8C=50;GOTO 8000
6550 IF &(21)=8C=25;GOTO 8000
6560 IF &(23)=4C=10;GOTO 8000
6570 GOTO 6530
6600 NT=2
6605 FOR N=-5TO 5
6610 LINE S,T,0
6620 LINE N×RND (5)+S,T+RND (10),3
6630 MU=1
6640 NEXT N
6650 FOR N=-5TO 5
6660 LINE S,T,0
6670 LINE N×RND (5)+S,T-RND (10),3
6680 MU=1
6690 NEXT N
6695 NT=0
6700 RETURN 
7050 R=0
7052 S=S-5;T=T+3
7055 IF P=-59GOTO 7200
7060 BOX P-1,Q,7,7,2
7070 BOX P,Q,5,5,2
7080 BOX P-7,Q,7,3,2
7090 BOX P-11,Q,3,1,2
7100 P=P-5;Q=Q+3
7110 GOTO 9021
7200 CX=-60;CY=0;&(21)=0;NT=0
7210 PRINT "SHIP OUT OF RANGE"
7220 PRINT "   GAME OVER"
7230 GOTO 9280
8000 CLEAR 
8010 BC=0;FC=126
9000 FOR A=1TO 51
9002 BOX RND (160)-80,RND (88)-44,1,1,1
9004 NEXT A
9011 P=51;Q=-36
9012 S=48;T=-36;Z=0
9015 &(23)=255
9020 X=40;Y=25;M=0;N=0;R=0
9021 BOX P-1,Q,7,7,1
9022 BOX P,Q,5,5,2
9023 BOX P-7,Q,7,3,1
9025 BOX P-11,Q,3,1,1
9100 BOX X,Y,3,3,2
9110 X=X+M;Y=Y+N
9120 IF X>77 X=77
9130 IF X<-78 X=-78
9140 IF Y>41 Y=41
9150 IF Y<-42 Y=-42
9160 BOX X,Y,3,3,1
9162 IF X=PIF Y=QGOTO 9250
9163 IF X>S-8IF X<S+1IF Y>T-4IF Y<T+4GOTO 9270
9170 BOX X-D,Y-E,1,1,3
9180 D=JX(1);E=JY(1)
9190 M=M+D;N=N+E
9200 IF D#0 &(21)=255
9210 IF E#0 &(21)=255
9220 IF D=0 IF E=0 &(21)=0
9230 R=R+1
9235 IF R=CGOTO 7050
9240 GOTO 9100
9250 CX=-60;CY=0
9255 NT=0;&(21)=0
9260 PRINT "GOOD LANDING"
9261 PRINT "   COMMANDER"
9262 GOTO 9280
9270 CX=-60;CY=0;&(21)=0;NT=0
9271 GOSUB 6600
9272 PRINT "MOTHER SHIP DESTROYED"
9274 PRINT "   HIT BY SHUTTLE"
9275 &(21)=0
9280 IF TR(1)=1GOTO 8000
9290 GOTO 9280
RUN 
